home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / btndmo / modbutto.bas < prev    next >
BASIC Source File  |  1995-10-01  |  545b  |  22 lines
  1. Attribute VB_Name = "modButtons"
  2. Option Explicit
  3.  
  4. #If Win16 Then
  5.     Type RECT
  6.         Left As Integer
  7.         Top As Integer
  8.         Right As Integer
  9.         Bottom As Integer
  10.     End Type
  11.     Declare Function PtInRect Lib "User" (lpRect As RECT, ByVal Y%, ByVal X%) As Integer
  12. #ElseIf Win32 Then
  13.     Type RECT
  14.             Left As Long
  15.             Top As Long
  16.             Right As Long
  17.             Bottom As Long
  18.     End Type
  19.     Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal X&, ByVal Y&) As Long
  20. #End If
  21.  
  22.